home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tk_bar / tkbar.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-12-06  |  3.1 KB  |  103 lines
  1. VERSION 2.00
  2. Begin Form frmButtonBar 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "ButtonBar"
  6.    ClientHeight    =   1560
  7.    ClientLeft      =   2115
  8.    ClientTop       =   1800
  9.    ClientWidth     =   3630
  10.    ClipControls    =   0   'False
  11.    Height          =   1995
  12.    Icon            =   TKBAR.FRX:0000
  13.    Left            =   2040
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   104
  18.    ScaleMode       =   3  'Pixel
  19.    ScaleWidth      =   242
  20.    Top             =   1440
  21.    Visible         =   0   'False
  22.    Width           =   3780
  23.    Begin PictureBox picTempIcon 
  24.       AutoRedraw      =   -1  'True
  25.       AutoSize        =   -1  'True
  26.       BackColor       =   &H00C0C0C0&
  27.       BorderStyle     =   0  'None
  28.       ClipControls    =   0   'False
  29.       Height          =   495
  30.       Left            =   1170
  31.       ScaleHeight     =   33
  32.       ScaleMode       =   3  'Pixel
  33.       ScaleWidth      =   52
  34.       TabIndex        =   1
  35.       Top             =   870
  36.       Width           =   780
  37.    End
  38.    Begin SSCommand cmdIcon 
  39.       Font3D          =   0  'None
  40.       ForeColor       =   &H00000000&
  41.       Height          =   570
  42.       Index           =   0
  43.       Left            =   150
  44.       Outline         =   0   'False
  45.       RoundedCorners  =   0   'False
  46.       TabIndex        =   0
  47.       Top             =   15
  48.       Width           =   570
  49.    End
  50.    Begin Menu mnuDummy 
  51.       Caption         =   "mnuDummyTop"
  52.       Enabled         =   0   'False
  53.       Visible         =   0   'False
  54.       Begin Menu mnuConfigure 
  55.          Caption         =   "Configure..."
  56.       End
  57.       Begin Menu mnuDummy2 
  58.          Caption         =   "-"
  59.       End
  60.       Begin Menu mnuAbout 
  61.          Caption         =   "About..."
  62.       End
  63.    End
  64. Option Explicit
  65. Sub cmdIcon_Click (Index As Integer)
  66.   '  Get the focus off the button.  Otherwise, a nasty
  67.   '  black border stays there.
  68.   '  Then DoEvents to make sure it's redrawn...
  69.   picTempIcon.SetFocus
  70.   DoEvents
  71.   Call ButtonBarExecute(Index)
  72. End Sub
  73. Sub cmdIcon_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  74.    If Button = 2 Then PopupMenu mnuDummy, 0, 0, 0
  75. End Sub
  76. Sub cmdIcon_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  77. Dim Cond1%, Cond2%
  78.   ' get focus off the button to get rid of black border
  79.   ' if dragged mouse down off the current button
  80.   Me.ScaleMode = 1
  81.   Cond1 = (Y > Me!cmdIcon(Index).Height) Or (Y < 0)
  82.   Cond2 = (X > Me!cmdIcon(Index).Width) Or (X < 0)
  83.   If Cond1 Or Cond2 Then
  84.      picTempIcon.SetFocus
  85.      DoEvents
  86.   End If
  87. End Sub
  88. Sub Form_Load ()
  89.   picTempIcon.Top = 0
  90.   picTempIcon.Left = -200
  91.   Top = 0
  92.   Left = 0
  93. End Sub
  94. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  95.   Call IniSave
  96. End Sub
  97. Sub mnuAbout_Click ()
  98.   frmAbout.Show 1
  99. End Sub
  100. Sub mnuConfigure_Click ()
  101.   frmConfig.Show 1
  102. End Sub
  103.